﻿Public Class frmLogin

#Region "Variáveis"

#End Region

#Region "Propriedades"

    Public Property codUsuario As Integer
    Public Property nomeUsuario As String
    Public Property codGrupoAcesso As Integer
    Public Property loginRealizado As Boolean

#End Region

#Region "Eventos"

    Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click

        If MyBase.validaCampos Then
            Me.loginRealizado = True
            Me.Close()
        End If

    End Sub

    Private Sub cmdSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSair.Click
        Me.loginRealizado = False
        Me.Close()
    End Sub

#End Region
    

End Class